with Ada.Text_Io; use Ada.Text_Io;
with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;
with Pgcd ;
procedure Test_Pgcd is
   A,B : Natural ;

begin
   Put_Line("Donner A un entier positif");
   Get(A);
   Put_Line("Donner B un entier positif");
   Get(B);
   Put_Line("le pgcd de A et B est :" & Natural'Image(Pgcd(A,B)));
end Test_Pgcd;
